(desktop-load-file): Check for `fboundp' before calling `symbol-function'.

diff --git a/lisp/desktop.el b/lisp/desktop.el
index 49034884b53e5189bb7e85c2d24ceafde63c9d32..249ed91ab29ea03a5c9a8b448ba1a093d7dd1a95 100644 (file)
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -966,7 +966,7 @@ directory DIRNAME."
 (defun desktop-load-file (function)
   "Load the file where auto loaded FUNCTION is defined."
   (when function
-    (let ((fcell (symbol-function function)))
+    (let ((fcell (and (fboundp function) (symbol-function function))))
       (when (and (listp fcell)
                  (eq 'autoload (car fcell)))
         (load (cadr fcell))))))